home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / mail / nesqwk1_05.lha / NesQWK / Install NesQWK < prev    next >
Text File  |  1995-07-09  |  3KB  |  108 lines
  1. ; This is the installer script for NesQWK
  2. ; (c) 1995 Nolimits Software Corp.
  3.  
  4. ;------------------------------------------------------------------------------------------------------
  5.  
  6. ( set #path-text
  7.     ( cat "Where would you like NesQWK installed?\n A drawer named 'NesQWK' will be created here." )
  8. )
  9.  
  10. ( set #path-help
  11.     ( cat "In this location a drawer will be created. NesQWK will be installed inside this drawer. The complete installation will require about 250Kb of free disk space.\n\n"
  12.       @askdir-help )
  13. )
  14.  
  15. ;------------------------------------------------------------------------------------------------------
  16.  
  17. ( transcript "NesQWK installation..." )
  18.  
  19. ( set srcdir "" )
  20.  
  21. ( set destdir ( askdir ( prompt #path-text )
  22.                        ( help #path-help )
  23.                        ( default @default-dest )
  24.                        ( disk )
  25.               )
  26. )
  27.  
  28. ( set destdir ( tackon destdir "NesQWK" ) )
  29.  
  30. ( set @default-dest destdir )
  31.  
  32. ( makedir (infos) destdir )
  33.  
  34. ( if (= ( exists ( tackon destdir "NesQWK.config" ) ) 0 )
  35.  
  36.     (   if (= ( askbool ( prompt "Does your Amiga have MagicWB installed?" ) (help "help") ) 0 )
  37.              
  38.         (    ( delete (tackon destdir "NesQWK.config") )
  39.              
  40.              ( makedir "FONTS:NesQWK" )
  41.             
  42.              ( copyfiles ( source srcdir )
  43.                          ( help @copyfiles-help )
  44.                          ( dest "FONTS:NesQWK" )
  45.                          ( choices "8" )
  46.              )
  47.  
  48.              ( copyfiles ( source srcdir ) 
  49.                          ( help @copyfiles-help )
  50.                          ( dest "FONTS:" )
  51.                          ( choices "font.NesQWK.font" )
  52.              )
  53.     
  54.              ( rename "FONTS:font.NesQWK.font" "FONTS:NesQWK.font" )
  55.         )
  56. ;       else        
  57.         (    copyfiles ( prompt  "Copying config." )
  58.                        ( help    @copyfiles-help   )
  59.                        ( source  srcdir            )
  60.                        ( dest    destdir           )
  61.                        ( choices "NesQWK.config"   )
  62.         )
  63.     )
  64. ;   else
  65.     (
  66.         message " " "Preserving your existing configuration files."
  67.     )
  68. )
  69.     
  70. (if
  71.    (= (exists ( tackon destdir "NesQWK.taglines" ) ) 0 )
  72.    (
  73.      copyfiles ( prompt  "Copying example tag-line file." )
  74.                ( help @copyfiles-help      )
  75.                ( source  srcdir            )
  76.                ( dest    destdir           )
  77.                ( choices "NesQWK.taglines" )
  78.    )
  79. )
  80.  
  81. (if
  82.    (= (exists ( tackon destdir "NesQWK.header" ) ) 0 )
  83.    (
  84.      copyfiles ( prompt  "Copying example header-text file." )
  85.                ( help @copyfiles-help      )
  86.                ( source  srcdir            )
  87.                ( dest    destdir           )
  88.                ( choices "NesQWK.headers"  )
  89.    )
  90. )
  91.  
  92. ( copyfiles ( prompt "Copying NesQWK to destination." )
  93.             ( help @copyfiles-help )
  94.             ( source srcdir )
  95.             ( dest destdir )
  96.             ( choices "NesQWK" "NesQWK.guide" "NesQWK.iff")
  97.             ( infos )
  98.             ( confirm )
  99. )
  100.  
  101. ( copyfiles ( prompt  "Copying example QWKMail bundle." )
  102.             ( help    @copyfiles-help )
  103.             ( source  srcdir )
  104.             ( dest    destdir )
  105.             ( choices "Example.QWK" )
  106. )
  107.  
  108.